home *** CD-ROM | disk | FTP | other *** search
/ Virtual Sex Shoot / Virtual Sex Shoot.iso / mac / Virtual Sex Shoot / Virtual Sex Shoot.DXR / 00139.ls < prev    next >
Encoding:
Text File  |  1995-09-24  |  1.9 KB  |  58 lines
  1. global gMovieSprite, gMovieDuration, gWhichCamera, gMarkers, gAutomated, gAutoInUse, gStartTime, gStartTime1, gStartTime2, gStopTime, gStopTime1, gStopTime2, gStoredTime, gWhichMovie, gWhichClip, gMovie1TimeCodes, gMovie2TimeCodes, gMovie3TimeCodes, gMovie4TimeCodes, gRecording, gPlaying, gStaring, gMoviePauseState, gSliderSprite, gDontReturnTo0
  2.  
  3. on exitFrame
  4.   cursor(200)
  5.   cursor(-1)
  6.   if gAutomated = 0 then
  7.     set the movieRate of sprite gMovieSprite to 0
  8.   end if
  9.   setMarkers()
  10.   if gAutoInUse = 0 then
  11.     updateCamera()
  12.     if gStaring = 0 then
  13.       set the visible of sprite 32 to 1
  14.       puppetSprite(32, not gRecording)
  15.     else
  16.       set the visible of sprite 32 to 0
  17.       puppetSprite(32, not gRecording)
  18.     end if
  19.     set the visible of sprite 33 to 1
  20.     if gStaring = 1 then
  21.       puppetSprite(33, 1)
  22.     else
  23.       puppetSprite(33, not gPlaying)
  24.     end if
  25.     puppetSprite(34, not gStaring)
  26.     puppetSprite(gSliderSprite, 1)
  27.   end if
  28.   if gAutoInUse = 1 then
  29.     set the movieRate of sprite gMovieSprite to 1
  30.   else
  31.     if gAutomated = 0 then
  32.       set timeCodes to EMPTY
  33.       do("set timeCodes=getAt (gMovie" & gWhichMovie & "TimeCodes, gWhichClip)")
  34.       set gStartTime1 to getAt(timeCodes, 1) + 12
  35.       set gStopTime1 to getAt(timeCodes, 2) - 30
  36.       set gStartTime2 to getAt(timeCodes, 3) + 12
  37.       set gStopTime2 to getAt(timeCodes, 4) - 30
  38.       if gWhichCamera = "A" then
  39.         set gStartTime to gStartTime1
  40.         set gStopTime to gStopTime1
  41.       else
  42.         set gStartTime to gStartTime2
  43.         set gStopTime to gStopTime2
  44.       end if
  45.       if gDontReturnTo0 = 1 then
  46.         set gDontReturnTo0 to 0
  47.       else
  48.         set the movieTime of sprite gMovieSprite to gStartTime
  49.       end if
  50.       set the movieRate of sprite gMovieSprite to gPlaying
  51.     else
  52.       set the movieTime of sprite gMovieSprite to gStartTime
  53.       set the movieRate of sprite gMovieSprite to gStaring
  54.     end if
  55.   end if
  56.   cursor(-1)
  57. end
  58.